home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d049.dms / in.adf / demox.s < prev    next >
Encoding:
Text File  |  1987-05-06  |  4.8 KB  |  259 lines
  1.  
  2.  
  3.  jmp copy
  4. start:
  5.  lea grafname(pc),a1
  6.  move.l $4,a6
  7.  jsr -408(a6)
  8.  move.l d0,a0
  9.  move.l d0,gfxbase
  10.  adda.l #$32,a0
  11.  move.l (a0),oldcopper
  12.  move.l $4,a6
  13.  move.l d0,a1
  14.  jsr -414(a6)
  15.  clr.l d0
  16.  clr.l d1
  17.  move.l #$0,a1
  18.  move.l #$0,a6
  19.  lea $63000,a0
  20.  move.b #$1e,d0
  21. loop1:
  22.  move.b d0,120(a0)
  23.  addq.b #1,d0
  24.  move.b d0,48(a0)
  25.  addq.b #2,d0
  26.  move.b d0,96(a0)
  27.  addq.b #1,d0
  28.  move.b d0,24(a0)
  29.  addq.b #2,d0
  30.  move.b d0,72(a0)
  31.  addq.b #1,d0
  32.  move.b d0,(a0)+
  33.  addi.b #$04,d0
  34.  cmpi.b #$f0,d0
  35.  bcs loop1
  36.  lea $60504,a0
  37.  lea $fca000,a1
  38.  lea $64100,a2
  39.  move.l #$13,d5
  40. loop2:
  41.  move.b 64(a1),100(a2)
  42.  move.b -32(a1),80(a2)
  43.  move.b 0(a1,d0.w),60(a2)
  44.  move.b 832(a1),40(a2)
  45.  move.b -512(a1),20(a2)
  46.  move.b (a1)+,(a2)+
  47.  bset #5,2560(a0)
  48.  bset #2,1280(a0)
  49.  bset #5,2(a0)
  50.  bset #4,6400(a0)
  51.  bset #1,5120(a0)
  52.  bset #4,3842(a0)
  53.  addq.l #8,a0
  54.  dbf d5,loop2
  55.  lea copper2(pc),a0
  56.  move.b #$90,d0
  57.  move.b #$a5,d1
  58.  move.w #$00c0,d2
  59.  move.b #$10,d3
  60.  bsr jump1
  61.  move.l #$fffffffe,(a0)+
  62.  lea copper(pc),a0
  63.  move.l a0,$dff080
  64.  move.w $dff088,d0
  65.  move.w #$83e0,$dff096
  66.  move.w #$0018,$dff09a
  67.  move.l $4,a6
  68.  jsr -132(a6)
  69.  lea grafname,a1
  70.  jsr -408(a6)
  71.  move.l d0,a6
  72.  move.l 50(a6),a3
  73.  lea $5f000,a0
  74.  moveq #$01,d0
  75.  move.l #$148,d1
  76.  move.l #$c8,d2
  77.  jsr -390(a6)
  78.  move.b #$05,$5f009
  79.  lea $5e000,a1
  80.  jsr -198(a6)
  81.  move.l #$5f000,$5e004
  82.  lea $5e000,a1
  83.  moveq #$01,d0
  84.  jsr -342(a6)
  85. vposr:
  86.  cmpi.b #$ff,$dff006
  87.  bne vposr 
  88.  bra mouse
  89. cont:
  90.  moveq #$01,d7
  91.  lea $60500,a0
  92.  lea $64100,a1
  93.  lea $63000,a2
  94.  bsr wot
  95.  bsr wot
  96.  addq.l #1,d7
  97.  bsr wot
  98.  bsr wot
  99.  addq.l #1,d7
  100.  bsr wot
  101.  bsr wot
  102.  addi.b #$01,d6
  103.  cmpi.b #$05,d6
  104.  bcs scroll
  105.  clr.b d6
  106.  adda.l #$01,a4
  107.  cmpi.b #$00,(a4)
  108.  bne skip
  109.  lea sctext,a4
  110. skip: lea $5e000,a1
  111.  move.l #$13f,d0
  112.  move.l #$6b,d1
  113.  moveq #$01,d3
  114.  move.l a4,a0
  115.  bsr move
  116. scroll:
  117.  lea $5e000,a1
  118.  moveq #$02,d0
  119.  clr.l d1
  120.  clr.l d2
  121.  move.l #$64,d3
  122.  move.l #$148,d4
  123.  move.l #$78,d5
  124.  jsr -396(a6)
  125.  bra vposr
  126. move: 
  127.  lea $5e000,a1
  128.  jsr -240(a6)
  129.  lea $5e000,a1
  130.  move.l d3,d0
  131.  jsr -60(a6)
  132.  rts
  133. jump1: 
  134.  bsr wot1
  135.  move.w #$ffd8,(a0)+
  136.  move.w #$0182,(a0)+
  137.  move.w d2,(a0)+
  138.  sub.b d3,d2
  139.  bsr wot1
  140.  move.w #$0002,(a0)+
  141.  cmp d1,d0
  142.  bcs jump1
  143.  move.l #$01080002,(a0)+
  144.  rts
  145. wot1:  move.b d0,(a0)+
  146.  addi.b #$01,d0
  147.  move.b #$01,(a0)+
  148.  move.l #$ff000108,(a0)+
  149.  rts
  150. wot:  move.l #$13,d5
  151. loop3:
  152.  add.b d7,(a1)
  153.  cmpi.b #$dc,(a1)
  154.  bls skip1
  155.  move.b #$2d,(a1)
  156. skip1:
  157.  move.b (a1)+,d0
  158.  move.b (a2)+,d1
  159.  move.l d1,d2
  160.  addq.l #1,d2
  161.  lsl.w #8,d1
  162.  move.b d0,d1
  163.  move.w d1,(a0)
  164.  lsl.w #8,d2
  165.  move.w d2,2(a0)
  166.  addq.l #8,a0
  167.  dbf d5,loop3
  168.  adda.w #$0460,a0
  169.  addq.l #4,a2
  170.  rts
  171.  
  172. grafname:
  173.  dc.b 'graphics.library',0,0
  174. even
  175. sctext:
  176.  dc.b ' Hi there!!!!  This is the WHIZZY of MATRIX DIVISION'
  177.  dc.b ' presenting you with Super Hang-On, IK+ and Popman on'
  178.  dc.b ' one disk!! This disk was compiled by WHIZZY and this '
  179.  dc.b 'intro was also done by GREML1N!!!!   Members are:-     '
  180.  dc.b '      GREML1N, WHIZZY, MATRIX and U. Kenubi(!?)........  '
  181.  dc.b '    Greetings go to :-                  Barlick Hackers,'
  182.  dc.b ' New Dimension, Fox, Accumulators and any1 else who knows'
  183.  dc.b ' us. Until next time,                     Byyyeeeeeee....'
  184.  dc.b '........',0
  185.  
  186. copper:
  187.  dc.w $008e,$2c81,$0090,$f4c1
  188.  dc.w $0092,$0038,$0094,$00d0
  189.  dc.w $0100,$1000,$0180,$0000
  190.  dc.w $00e0,$0005,$00e2,$0000
  191.  dc.w $0120,$0006,$0122,$0500
  192.  dc.w $0124,$0006,$0126,$0a00
  193.  dc.w $0128,$0006,$012a,$0f00
  194.  dc.w $012c,$0006,$012e,$1400
  195.  dc.w $0130,$0006,$0132,$1900
  196.  dc.w $0134,$0006,$0136,$1e00
  197.  dc.w $0138,$0005,$013a,$5000
  198.  dc.w $013e,$0005,$013c,$5000
  199.  dc.w $01a2,$0555,$01a4,$0555
  200.  dc.w $01aa,$0888,$01ac,$0888
  201.  dc.w $01b2,$0fff
  202. copper2:
  203.  dc.w $9001,$ff00,$0108,$ffd8,$0182,$00c0,$9101,$ff00,$0108
  204.  dc.w $0002,$9201,$ff00,$0108,$ffd8,$0182,$00b0,$9301
  205.  dc.w $ff00,$0108,$0002,$9401,$ff00,$0108,$ffd8,$0182
  206.  dc.w $00a0,$9501,$ff00,$0108,$0002,$9601,$ff00,$0108
  207.  dc.w $ffd8,$0182,$0090,$9701,$ff00,$0108,$0002,$9801
  208.  dc.w $ff00,$0108,$ffd8,$0182,$0080,$9901,$ff00,$0108
  209.  dc.w $0002,$9a01,$ff00,$0108,$ffd8,$0182,$0070,$9b01
  210.  dc.w $ff00,$0108,$0002,$9c01,$ff00,$0108,$ffd8,$0182
  211.  dc.w $0060,$9d01,$ff00,$0108,$0002,$9e01,$ff00,$0108
  212.  dc.w $ffd8,$0182,$0050,$9f01,$ff00,$0108,$0002,$a001
  213.  dc.w $ff00,$0108,$ffd8,$0182,$0040,$a101,$ff00,$0108
  214.  dc.w $0002,$a201,$ff00,$0108,$ffd8,$0182,$0030,$a301
  215.  dc.w $ff00,$0108,$0002,$a401,$ff00,$0108,$ffd8,$0182
  216.  dc.w $0020,$a501,$ff00,$0108,$0002,$0108,$0002,$ffff,$fffe
  217.  
  218. copy: move.l #$402af,a4
  219.  move.l #$50000,a0
  220.  move.l #$70000,a1
  221. loop4:
  222.  clr.l (a0)+
  223.  cmpa.l a0,a1
  224.  bne loop4 
  225.  lea start(pc),a0
  226.  move.l #$77000,a1
  227.  move.l #$800,d0
  228. clear:
  229.   move.b (a0)+,(a1)+
  230.  dbf d0,clear
  231.  jmp $77000
  232. mouse: 
  233.  btst #6,$bfe001
  234.  beq fini
  235.  bra cont
  236. fini: 
  237.  move.l gfxbase,a0
  238.  move.l 38(a0),$dff080
  239.  clr.l $dff088
  240.  move.w #$83e0,$dff096
  241.  move.w #$a008,$dff09a
  242.  move.l $4,a6
  243.  move.l gfxbase,a1
  244.  jsr -414(a6)
  245.  move.w #$0020,$dff096
  246.  moveq #$00,d0
  247.  rts
  248.  
  249. oldcopper: dc.l 0
  250. gfxbase: dc.l 0
  251.  
  252. 
  253. Buffer closed
  254. Download successful
  255.  
  256.  
  257.  
  258.      *=*=*=*  MESSAGES *=*=*=*
  259.      *